home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / Important / susan.script < prev   
Text File  |  1997-09-02  |  1KB  |  65 lines
  1. SET @WORK 0|
  2. SET @SWITCHTIME 0|
  3. :LOOP|
  4. IF @SWITCHTIME > 0 CHECKTIME|
  5. GOTO LOOP|
  6.  
  7. :CHECKTIME|
  8. TIMER @TIME|
  9. IF @TIME > @SWITCHTIME FIXWORK|
  10. GOTO LOOP|
  11.  
  12. :FIXWORK|
  13. MATH @WORK + 1|
  14. IF @WORK = 3 RESET|
  15. TIMER @SWITCHTIME|
  16. MATH @SWITCHTIME + 1000|
  17. GOTO LOOP|
  18.  
  19. :RESET|
  20. SET @WORK 0|
  21. SET @SWITCHTIME 0|
  22. TOGGLETOUCH|
  23. :NEWLP2|
  24. WALKTO 411 112 3 @RES|
  25. IF @RES = 0 NEWLP2|
  26. [ "Susan:  Here, %n.  A new ID card."|
  27. [ "%n:  Thanks, Susan."|
  28. ADDITEM GovernmentID|
  29. TOGGLETOUCH|
  30. GOTO LOOP|
  31.  
  32. :TOUCH|
  33. ONGOTO 0 @WORK NORMAL DOWNLOAD ID|
  34. GOTO LOOP|
  35.  
  36. :NORMAL|
  37. [ "Susan:  Hey there, %n."|
  38. [ "%n:  Hi, Susan."|
  39. GOTO LOOP|
  40.  
  41. :DOWNLOAD|
  42. [ "Susan:  It takes a while to cancel"|
  43. [ "a download from Earth because of"|
  44. [ "the slow speed of radio waves."|
  45. [ "It'll be done soon."|
  46. GOTO LOOP|
  47.  
  48. :ID|
  49. [ "Susan:  The computer is waiting for"|
  50. [ "a response from the Earth Central"|
  51. [ "Government.  Once I get the info,"|
  52. [ "I can make you up a new ID card."|
  53. GOTO LOOP|
  54.  
  55. :CANCELDOWNLOAD|
  56. TOGGLETOUCH|
  57. SET @WORK 1|
  58. :NEWLOOP|
  59. WALKTO 409 189 3 @RES|
  60. IF @RES = 0 NEWLOOP|
  61. TIMER @SWITCHTIME|
  62. MATH @SWITCHTIME + 2000|
  63. TOGGLETOUCH|
  64. GOTO LOOP|
  65.